THE ELECTRIC SECRETARY 

by 
The Peripheral People 

OPERATING INSTRUCTIONS 

INTRODUCTION 

The ELECTRIC SECRETARY program was written specifically to adapt TRS-80 
hobby and business system t5 word. processing applications, ft requires a single 
or multiple disk system with a minimum memory of 32K. However, without modifica- 
tion, this configuration will print upper case letters only. 

While this is satisfactory for many commercial applications, the TRS-80 can 
be easily modified for upper/lower case printing and video display. With the 
^Hi? ion of a suitable daisy wheel printer Qume, Diablo, Multi-Term, etc.) , 
tne "fowly" TRS-80 will out|e3oS an IBM "Mag-Card'll" $10',000 word processing 
system, in addition to its primary function as a computer. 

ADVANTAGES 

Writing the program in basic offers numerous advantages over ^machine 
lanquaqe word processing programs. The operator can more clearly understand how 
the Proqram works, by lilting it. The operator also has a degree of control that 
is r£t^Sl£blf witX machin! language ^9grams For example .default values for 
margins, page length and so on can be modified by the operator tor most otten 
used page formats. 

The ELECTRIC SECRETARY incorporates aM^SQatim^iS^aa^,. Q*t is not 
found in machine language programs. TlTTypicMHEextrsooner or later, a word 
LVuuuj.il i »v- | g- hyphenated. Lesser programs simply leave a gap at 

the Sd of fhe lire wh£ t^fSScu?s or els/lelve big g|pl between worSs to 
fill out the line. This destroys the symmetry of a beautifully formatted page of 

kJzz ALt 

Another advantage of the ELECTRIC. SECRETARY is the use of disk storage 
rather than cassettes. Once the text is completely entered, it is saved on disk 
t° , basic line numbered proqram. This file can then be loaded from the disK 
?nto men^rv and totally mnipula ted using the TRS-80 edit commands. Words or 
sentenclfcln b2 addS, deleted ^typos corrected and on Once the operator is 
satisfied with the text, it can be resaved en disk for later use. 

Tf f. hp i-pv*. ^ q entered correctly, the operator can go directly to. the print 
procram Without editing! EditS prdfcably would not bf required with short 
SSe?2 Sd corrfespondence can Be quickly generated by the proficient operator. 

One of the most useful features of the. ELECTRIC SECRETARY is the ability to 
qenerate form correspondence. Ibis is facilitated by a technique gJcQuplin^|n| 
cross coupliJiaJfilesV The user generates a file containing . names ancTaddresses 
-^^^S^^c^o^fOT" consist inq of the form letter. The files are cross coupled 
trough ccSSnds and individua^inside addresses are added to each form letter 
Stil the end of the address file, is reached. If continuous letterhead rolls are 
used, no operator intervention is required during printing. Other files can be 
made from standard paragraphs and used to customize letters or to insert routine 
text in legal or other documents. 

One unique feature not found in other TRS-80 word processing programs is' an 
echo routine M which permits the printer to be used as an electee typewriter. If 
desired, keyboard entries can appear °" the screen and printout at the same 
tine. This routine can also be used with other TRS-80 programs. 

Another exclusive feature is an upper case shift lock to permit quantities 
of u^r caSf text to bfenlerld witfcSt continually depressing the |hift key. 
This feature is only applicable when the upper/lower case modifications have 
been made. 

BACKUP DISKS 

Since vou could make a serious error during some of the following steps 
(that milh^mge the program), make a backup copy before proceeding, rise this 
backup copy for your experimenting. 



UP AND RUNNING 

The ELE' 
modification 



The ELECTRIC SECRETARY . works . whether you have made the upper/lower case 
iication or not. In either instance, the power-up procedure is as tollows. 
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enter 6 for the "HOW MANY FILES" request. You could have as many as. six files 
open at any one time. If this is not accomodated, the program will "crash". 
Next, protect the memory by entering 48991' for a 32K system. Run the MENU 
program and enter selection 4. If you press the reset button for any reason, 
this procedure should be followed. If you do not have the upper/lower case modi- 
fication installed, you can avoid running the case program by removing the poke 
statements near the beginning of the PREP and PRINT programs . However, this will 
prevent using the echo routine. Also, if you have an upper/lower case printer, 
the copy will be reversed (upper for lower and vice versa) if the case program y 
is not run. 

WRITING LETTERS 

If you have no word processing experience, you will want to see the 
ELECTRIC SECRETARY do something right away. Okeh, we'll humor you. Load .the PREP 
program by selecting #1 on the menu. When the computer asks for a file name, 
use your first name (8 letters maximum) so you can remember it. Answer the 
upper/Lower question and the disk will operate. As soon as the screen clears, 
enter the sample letter you'll find near the end of this manual exactly as 
shown. Use the enter key at the end of each line. The layout on. the screen 
should look exactly like the sample letter. The disk will run occassionally as 
you type the copy. This is normal. 

As soon as you type .end, the disk will run for a final time and the ready 
prompt will return. Then type new and run the PRINT program. Once again, answer 
the questions (remsmber the file name?). The printer should spring to life and 
type the letter if you didn't make any mistakes. 

Now that yai've had your fun with the ELECTRIC SECRETARY, let's put 'er to 
work. We've prepared a demonstration program to show you why you typed those 
rather mysterious letters. They are called commands. 

LEARNING THE COMMANDS 

Note that during the following instruction steps, you will be told to run 
the PRINT program a number of times. It is not necessary to run the MENU each 
time. You can simply type RUN"PRINT" and accomplish the same thing. 

If you have not made the case modifications (and do not remove the poke 
statements), answer NO or N when requested. If you type YES (or any word 
starting with a Y) , you will see strange things on your display. 

To see what the ELECTRIC SECRETARY can do, let's demonstrate the .various 
commards. In doing so, you will learn how to apply these commands during your 
word processing work. 

The ELECTRIC SECRETARY is such a powerful program that it is difficult to 
describe every feature in detail. The following instructions emphasize experi- 
menting to increase proficiency in using the program. 

Insert the disk and LOAD (not RUN) file DEMO. Type list, then using "shift 
@" to stop the program lines, note that each line number is followed. by an 
apostrophe. This is TRS-80 shorthand for a remark which does not get printed. 
Every line must have this apostrophe. A_program full of remarks will not RUN. 
This is why you use LGAD"DSMO" instead of RUN. The ELECTRIC SECRETARY, of 
course, strips off these apostrophes before printing. 

Note that the first few lines are alpha numeric information preceded by a 
period. These are commands which are acted upon, but not printed. If the first 
character following the apostrophe is not a period, the line will be printed. 

A few commands you should see are; .CM .LM5 .RM60 .PL60 .SPl .BLl .NF and 
.FL. A list of commands, and the function of each, is given near the end of this 
manual. Most commands have two letters preceded by a period .. These commands are 
followed either by mmbgraJn) orjaaJta=J&) unless they are switch commands such 
as .NF (no fill) oTTF^^ml) .^Eeprintout of the DEMO program illustrates how 
these~CCmnEnas ar^elBe^SSTTfi the text to control the printing of that file. It 
is important to note that although more than one commandcan occur on a line, j ^ 
commands cannot occur in the same line_as.Jbgj(t. """-"""Y^^^^^^^^^^*^^^**^**^ 

The first line of any text must be"Q±JL This tells the computer that it is 
an ASCII file. Any time you resave a fiTe(for example, after appending or re- 
numbering), make sure the first line is "0"' and that vou SAVE "file name", A. 
The "A" saves the file in ASCII. Since we'll be doing quite a bit of editing of 

the DEMO file, always remember to type SAVE"DEMO",A. 

The command .cm at line 10 is not really a command at all. It is the 
ELECTRIC SECRET AKr^veYs ion of REM. Anything on the line after ^mJLcommeatl, will 
not be printed or acted upon. Lines 20 and 30 specify t^emargins, while. 40 
specifies the page length. Line 50 tells the computer to justify the copy. Line 



l'tir. UjHumrv, otitic; lhi\ i - t-a'jt; j 

6U produces single spacing and line 70 is the NO FILL command, 'the command .IT5 
imbedded in the text (lines 130, 340, 410 and 470), is a 5 space paragraph 
indent. 

Now let's see what thiise commands and text do. Type RJN"PRINT", answer 
"DEMO" for the file request and "P" for the printout request. The disk will 
start up and the printer will activate and print the demo text. Note: If you 
have not made the case conversion (and have an upper/lower case printer), the 
cases will print reversed from normal. ' ■ 

LINEC FILLING AND JUSTIFICATION . Tv 1 .PL . N F" 

The printing certainly does not resemble a typed manuscript, however. The 
lines are printed just as they were entered originally. To print usable copy, 
line filling is, required. Line filling is the most basic feature of the ELECTRIC 
SECRETARY. This Is the process of adding words to a line until one more word 
will exceed the specified right margin. This word and the following words are 
saved for printing on the next line. This allows the printed version of the text 
to have lines differing in length from those entered. 

; One of the major features of a word processing program is to even the right 
margin like the left margin. This prints the text in even columns and is called 
justification. The .iul justify command cannot be actedjjBQn unless J^jjUy^ 
is also invoked. Th^TSftTTRTC^EterSRY justif ies-merTg^l^margins^^^iiciaing 
blanks and determines how many blanks are needed between words to expand the 
line to the specified length. The program adds blanks as required from left to 
right and right bo left on alternate lines to make the added blanks less 
noticeable. 

Once again, load the "DIMO" file and change line 190 to read 190', FL to 
command the line filling function. Save the file (SAVE"EEMQ",A), then print. the ' 
program again. The printed copy should be perfectly justified on the right - 
margin. , , 

Incidentally, you can also review the text on the screen rather than the /, 
printer. Run the program again, but this time specify c (for crt) rather than p ; ' 
(printer). The copy will now scroll on the screen. / 

HYPHENATION .5^8 . 

At times, a long word at the end of the line exceeds the specified line 
length, yet if it is roved to the next line, excessive blanks will be required 
to justify the right margin. In this case, it is necessary to hyphenate the 
wora. 

Note the first line of the third paragraph. Excessive blanks have been used 
to fill the line because the word 'processing 1 will not fit on the first line. 

Let's turn on the hyphenation feature. Reload the "DEMO'J, file and add , $\J J 
lO'.SYl. This will tell the computer to hyphenate words as required. Resave the ' 

— -fwgrSlTr (don't forget the ,A) and run the PRINT program again; 

When the third paragraph is reached, the ELECTRIC SECRETARY wj.ll come 
across a word (processing) that needs to be hyphenated. The program will first 
look in a file called "DICTNARY". If the word is found, it will be divided at 
the appropriate point and printed. Since we've cleared the "DICTNARY" file, the 
word will not be found and the cassette control relay will buzz to alert you of 
this fact. 

When the computer tells you that the word in not in its dictionary, type 
'pro-cess-ing' and press enter. The program will proceed after this word has 
been stored in the DICTNARY file. The word manipulated will also have to be 
hyphenated later on in the text. Look this one up in the dictionary for the 
correct hyphenation points. 

FORMATTING 

The ELECTRIC SECRETARY program also provides for total control of page 
formatting. The most important function is margin control. The format commands 
are usually specified during the first few lines of the program. However, you 
can change margins and a] ter the page length within the body of the text. This 
can be used for special effects in your documents. Line spacing, lustif ication 
and line fill can be turned on and off at any time while preparing the 
document. 

Margin Control - The following are the margin control commands: 

Page Length ( .PL(n) tt 

Top Margin (.TM(n 

Qottom Margin (.BM(n) ». 
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Left Margin (.LM(n) O 

Right Margin (.RM(n) 7 

Margin Adjust (.MA(n) M. 

A complete list of commands, and an explanation of their function, is given in a 
table near the end of this manual. 

DEFAULT VALUES 

Note that the original DEMO text did not specify top and bottom margins. 
The default values were used instead. To illustrate how this works, reload the 
DEMO p?raram and delete lines 20, 30 and 40 to remove these format commands. 
Reqave the proqram (,A) and print it. When no format commands are given, default 
value! are Sse^inst4ad. The P printout should now have a line width of 7 6 charac- 
ters since the default left margin is zero and the right margin is 70. For most 
work there is no point of having a left margin other than zero. The paper can be 
physically positioned in the printer to provide a Proper ^ft margin. J^ is will 
print text faster since the printer will start the line immediately without 
having to tab over (n) spaces. 

The default values can be overridden at any time by imbedding suitable 
command! IS the text! Reload the DEMO file. Insert line number 345 3 ust before 
thethird paragraph and type • .LM10.RM60. . At line 405 insert the original 
default^alues: 465' .LM0.RM70. When you print this revised text, the third para- 
graph should be narrower and subsequent paragraphs should return to the default 
format. 

Figure 1 shows the variable names assigned to various functions within the 
Drcaram The default values for the page format are given in line 370 of the 
iR^T^roqram. These values are set up for 10 point type. However, if a 12 point 
wheel or eSlI is used, the values should be changed accordingly. For example, 
P=66 would be changed to approximately 88 (8 lines/inch) to fill an 11 inch 
printed paqe.L2 (the right margin) shoulcTalso be changed. By consulting the 
variable list (Figure 1) ard line 370, virtually any default format can be 
selected. 

SPACIDG .&&(*A 

""""Reload the DEMO text, change line 50 to ',SP2. Resave . and reprint the text. 
It should print double spaced. The spacing command can be imbedded in the text 
to switch Sack and forttibetween single and multiple line spacing, if desired. 

.SWITCH COMMANDS .PL • ** F . wJ T i 

Fill (.FL) and no fill (.NF) are switch commands. Note that they are used 
before ana after text that you do not want to be filled. If this were not done, 
these words would be continued as if they were part of a continuous text. 

There is another important switch command in the ELECTRIC SECRETARY 
prcqram? Let's say you are printing on stationery. The operator would have to be 
?aSer agile toget a new page in the printer before printing commenced on the 
next oace. However, there is a command to cover this. Reload the DEMO text, 
insert ^KCL. Tsomewhere in the command area of the program. Resave and reprint. 
Thil tffierfe* pr inter will stop and the screen will instruct you to insert and 
imTimf sheet of paper. Press ENTER to proceed. You. can also imbed the 
comSrrl .wa ^enevJr yS wISfthe Siting acticn'to stop until you press the 
enter key. 

DATA COMMANDS .CE" . H t> (d) . ^A 

So far, we have used number commands and switch (on-off ) commands . The 
ELECTRIC SECRETARY also uses data commands. One of the most common is .CE to 
center a line on the printed page. 

'^"^l^T^DEMD test and edit lines 80, 90. 100 and 130 to insert .CE 
between the apostrophe and the following letters (for example, tfu .CEiHh 
PTFCPRIC SECRETARY). This will tell the computer to center these, lines where 
they should be to make the. page look correct. Resave and reprint the edited 
program and note the centered titles. 

Another important command that expects data is HEADER (.HD(d) .Whatever is 
printed following the HEADER command will print at the upper left corner of the 
mqe For example, if you insert 75' .HDMr. 5ones-, each page following the first 
wl?l* print Mr. Jones- Page 2, and so on. If a HEADER is not given, tge default 
is to print only the page number. If page numbers are not desired, the command 
^HDno will turn off any^ header including the page numbering routine. If the 
-tpSKBr wants the printing tc .stop so that copy can be manually J^g ™ in £ e 
typewriter, imbed the command jU^LSJL^ii^ by itself. Then on the next line, 
continue the text. The^prTntexwTLT^topljntil the operator presses the enter 
key on the TRS-80. if you have a printer, rather than a typewriter, you will 
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have to use the TRS-80 keyboard to enter text. Make sure you energize the echo 
routine before printing text that will require insertions. For a better method 
of accomplsihing this, see "COUPLING FILES". 

WRITING TEXT , £ 1/ D , 

Once you are satisfied you have a basic understanding of the commands, try 
processing your own text. Load the MENU program and run the upper/lower case 
program if you have not removed the poke statements as discussed earlier. Then 
select #1, the PREP program. The program will first ask you for a file name. For 
new text, select a suitable 4-5 letter name (do not use more than 8 letters!). 
If you specify an existing file name (for example, DEMO), the buzzer will alert 
you to the fact that this file name already exists. The program will then ask 
you if you want to overwrite or append (add to) it. If you select "0", the old 
file will be erased and a new file opened using this name. Ifyousele ct "A", 
the exist ingTexT^wtn be moved to a new file calledTEMLjmd you can ado^Eo 
«JL4. The program will start you at the nexr*aWftteGTe"Tine number from wHere~you 
left off. When edited, you will have to addl^e^JIOJ " and save the TEMP file 
under the original name selectea w ™ft3r~fnefile. The TEMP file is not ren amed 
after you type .END. More about appending text later. —————— ' 

After the screen clears, type .SPl.SYl.JUl.FL and then enter some text. 
Make it a practice to press ENTER at the end of each sentence. Under no circum- 
stances should you type more than 4 lines without pressing enter. If you do, you 
will overload the text buffer. This will "crash" the program and possibly even 
put "garbage" on some of the other disk tracks. Note that the disk runs every 
few lines as the buffer contents are moved to the disk for storage. This is the 
reciprocal of the action you noted when the disk was outputting text to the 
printer. 

Once you have the text entered, type .END at the beginning of a line to 
terminate the program. The disk isGrrarffie program will close the file and 
the READY prompt will appear. Incidentally, speaking of CLOSE, make it a 
practice to always type and enter this whenever you break a program. Otherwise, 
you may find that your file is listed in the directory but if you examine the 
individual programs with DIR (S,I,A), there will be a zero shown for contents! 

You can now type NEW to remove the PREP program and load the file name you 
have selected. Review the text for typos and insure that the proper commands 
have been given. Occasionally an .IT5 will store as a .IT-5. or if you try to 
use no re than a couple of indents, a margin change command might occur. Once you 
are satisfied with the text, resave it (filename,A) and then print it as you did 
with the DEMO program. 

At this point you have all the basics of the ELECTRIC SECRETARY program. To 
become proficient, you must practice processing text. It is a powerful program 
and you cannot expect to sit down at your TRS-80 and generate perfectly format- 
ted text anymore than you would expect to pick up a guitar and play something by 
Segovia. You have learned the chords, now you must practice to make the music. 

RENU MBERING _ 

Often it will be necessary to add additional text to material previously 
done. Since the lines advance in steps of 10, you have 9 lines to insert other 
copy at any point. You can usually get more space by moving a command forward or 
back 9 nunfoers. 

Occasionally, however, even this will not provide enough space. In this 
instance, it is necessary to utilize the RENUMBER program. Select this via the 
MENU. Answer the file name' that you want to renumber, then specify and either 
100 or 200 for the incremental steps. The program will run and you will see the 
renumbering on the screen. This file will now be loaded in memory as TEMPNUM. 
After you have added the text, or otherwise modified it, resave it with the 
original file name (,A) and KILL "TEMPNUM". 

APPENDING 

Typical, text is usually sufficiently long that it cannot be entered totally 
at one setting. You may be tired or diverted and type .END before the entry is 
complete . 

The file can later be reloaded under PREP and appended by specifying option 
"A". This will open a new file called "TEMP" in which you can add to the text. 
However, the file is vulnerable. Even though the text is recorded in segments, 
if the disk should reboot to DOS (such as when the oil burner or air conditioner 
kicks on) , the data that was in the TEMP file and the data you are adding will 
be destroyed because the file was not closed. This can also happen if you fill 
the disk ip on a single disk system. 

There is another oonside ration. Let's say you are preparing a manuscript 
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that is dozens of pages long. You can keep entering text until the disk is 
full. However, what happens when you try to edit all this copy? The memory space 
available is the difference between the DCS requirements (10K) and the maximum, 
32K for example. Cbviously if you try to edit copy that consumes more than 22K, 
you will get a OUT OF MEMORY notation when you try to load it. You will not be 
able to edit the last half of the copy. 

COUPLING FILES . M X C 4*^* ^** %t - } .ST l IJb*>*&>=*Ji»- J . V r" 

The solution is a new command that has not been mentioned called next 
file. The command is .nx(file name). For example, you have entered four or five 
pages of single spaced text. You are getting near your memory limit. Before you 
type .end, first type .nx( file name) on the preceeding line by itself. If, for 
example, your file namff-Ts"*5^rr7""then you might type .nxsaml. When you resume 
typing, you would open a new file called "saml". After typing another four or 
five pages of single spaced text, type .nxsam2 and .end. Naturally, when you 
resume or continune, you would open a file called "sam2" and so on until you are 
finished or the disk is full. You should be able to get about 12 single spaced 
pages on a disk, along with DOS and the ELECTRIC SECRETARY PROGRAM, plus the 
DICTNARY file, which requires 11 grans. 

You can also keep the ELECTRIC SECRETARY program on one diskette and the 
manuscript on a second one. Before you answer the file name request in the 
program, be sure to insert the manuscript diskette or the program will not be 
found. You should be able to get 20 single spaced pages on a diskette without 
the ELECTRIC SECRETARY program. Be sure to leave room for the dictionary file, 
which requires 1.1 grans. If you have a multiple disc system, you can store an 
infinite amount of copy. 

By introducing several new commands, you can start to do some very useful 
word processing. One command is to call a standard paragrap h (.st filename). 
Let's say yea are generating a series of form letters. They are "arm^TFTZlehtical 
but seme require special paragraphs tailored to the particular reader. You can 
prepare the letter, then at an appropriate point in the text imbed the command 
•stmoney (for example). If you have also written a file called "money", the 
program will transfer to this standard paragraph, insert it and then resume 
typing the letter. You can prepare as many standard paragraph inserts as you 
wish by giving each one a distinct file name. 



Here's a typical problem for word processors. You are sending out letters 
to your past due customers. They must be reminded in your form letter of how 
much they owe you and how far past ate they are. You can use the wait commmand, 
but there is a better way. It is called the data file command (.df). In the 
command area of your letter, insert the .df command without specifying a file 
name. Then when you get to the part of the letter that says "you owe us...", 
insert twoaygs^iaQjaajiaj^ "You owe 

us ?? -5KT^ycu^aOT r tpay^^r^5^r , TT^en the program finds the double 
qnssttarrmark, it will stop before printing the line and display a single 

?uestion mark on the screen. You would then type in the dollar amount on the 
RS-80 keyboard and then press the enter key. The program will then take your 
data, justify the next line and print it. You can imbed several double question 
marks in the text for other data such as how far past die, when they are going 
to be sued and so on. 

Let's expand this concept further and really get fancy. All past due letter 
should have a "nasty paragraph. The degree of "nastiness" depends on how far 
past due the customer is. You can combine the data file command (.df) and the 
standard paragraph command (.st) used earlier to completely customize your 
letters. First, don't forget to put the .df in the command area of the letter. 
Then, when you reach the place in the text where you want to insert the nasty 
paragraph, use the command .st??. When the program reaches this point it will 
stop, but this time y^u-*^g-TOsTyT, nasty 2, nasty 3 or whatever standard para- 
graph you want inserted. Any number of standard paragraphs can be manually 
inserted in a letter using the .df and .st?? commands. 

You can further couple files by imbedding standard paragraph calls within 
other standardjpara graphs. This concept leads to another useful application for 
the ELECTRIC SECRETARY program called cross coupling. 

CROSS COUPLING FILES . R P 

Let's say you have a ton of identical form letters to produce. Naturally 
the ELECTRIC SECRETARY can generate these with ease. But what about the addres- 
ses? Do you have to insert the letterhead, type the address and salutation, then 
run the letter? Certainly not! You can save all this work by cross coupling 
files with the next file (.nx) and the standard paragraph (.st) commands. 

First, open a file called "names", or some such, and repetitively enter 
the name, address, city/state/zip, a blank line, salutation (Dear Mr. Jones), 
another blank line then the standard file command (.stletter). Repeat this same 
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format with the next name until the mailing list is completely entered. Once 
this file is prepared you never have to do it again, except for updating.. Next, 
prepare a file called "letter". Start with a suitable number of blank lines to 
miss the letterhead and start the printing at the right line on the page. Then 
put in the format commands desired (.syloul.fl, etc.), the current date, a blank 
line and then the next file command (.nxnames). 

After you have completed the entry of text (and before you type .end), add 
a new command called repe at file ( .rp) . This command will close the file, then 
open it again at the begimt!1gT = ^1ff*r*TOrget to insert a wait command (.wa) -]ust 
before the repeat command, so you have time to insert another i e tterH53aT~™^ 

Note that you can purchase your letterheads printed en rolls. Some types 
are made for tractor feed and have tear off sprocket margins. If either form of 

pic 



letterhead is used, omit the wait command. With program planning, and the proper 
use of the ELECTRIC SECRETARY commands, you can start the printing and never 
touch the computer again until all the letters are printed! 

SPECIAL COMMANDS . f C 

Poke Command- The poke function of the TRS-80 can be used with the ELECTRIC 
SECRETARY program. By imbedding the comman d .pk, _ y ou can change the contents of 
machine language routines. For example, ortBTTIBSEul application is an upper case 
shift lock. 

Normally there would be a problem if you want to insert a lot of upper case 
material when the upper/lower case function has been selected. You would need to 
hold your little finger on the shift key all the time you are typing the upper 
case letters. 



\n easier way is to use the poke command to simply switch back to upper 
only. As you may recall from the menu, you can do this by typing &h4019,0 



An 
case cn_, . --_,...., . . ^ _ 

However, poke commands embedded in the ELECTRIC SECRETARY program must .be in 
decimal form. The decimal equivalent of hex 4019 is 16409. Thus, typing the 
command .pkl6409 ,0 

IS THE EQUIVALENT OF A SHIFT LOCK AND UPPER CASE ONLY LETTERS ARE PRINTED. 
SIMPLY KEEP TYPING ALONG WITHOUT HITTING THE SHIFT KEY UNTIL YOU ARE FINISHED 
WITH UPPER CASE LETTERS, THEN TYPE .PK16409,1. 

and the shift is unlocked. You can also use the poke command .pkl6408,l to echo 
text on the screen while printing. There are probably many other applications of 
the poke command that will occur to the user. The poke statements must be on a 
line by themselves and not embedded in a line of text as was done above. 

s/ 

Macro Command- To avoid having to specify the same group of commands over* 
and over, or to shift between formats, these commands can be set up as macro 
subcommands. The command Set Macro ( .sm(n) command, command, command, etc.) es- 
tablishes as set of commands for a~gTve^*mcro number (n) which are performed by c 
the Execute Macro . ( . em ( n ).___command . For example, .em7 will perform all the.C 
commands set up by a3mmara~TsW. You can have up to 10 of these macro groups. 

^;< Table of Contents- You may want a table of contents printed at the end of 

a document. This can be accomplished by using the command .co(d). Any data fol- 
lowing this command will be printed at the end, along with the page number where 
the data is to be found. ^y 

jk Text Mover- There is another page format command that was not mentioned 

earlier. You may want to move the entire body of text right or left on the 

Eage. This can be done by envoking the over command (.ov(n). The number (n) can 
e either positive or negative. However, you obviously cannot move the text left 
beyond the mechanical stop of the printer. 
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MARGIN CONTROL 



CARRIAGE CONTROL 



COMMAND / 

.BM - Bottom Margin 
.LM - Left Margin */ 
.MA - Margin Adjust </ 
.OV - Over ('.'' ' 
.PL - Page Lengths 
.RM - Right Margin 1/" 
• TM - Top Margin -' 

FORMATTING 



^ 



.BL 


- Blank Line v' 


.CE 


- Center Line V 


.FL 


- Fill Lines v 


.IT 


- Indent Line </ 


.NF 


- No Fille v* 


.NJ 


- No Justify ^ 


.SP 


- Spacing --' 


.SY 


- Hyphenate •'' 




- J v i r 1 f y ••*" 



FORMAT 

.BMn 

.LMn 

.MAn 

.OVn 

.PLn 

.RMn 

.TMn 



.BLn 

.CEd 

.FL 

.ITn 

.NF 

.NJ 

.SPn 

.SY1 

, Jul 



COMMAND FORMAT 

.HD - Header V .HDd <> r (£.<■- 

.WA - Wait y' .WA 

.WT - Wait at Top s .WT1 

SPECIAL COMMANDS 

.CM - Comment ^ .CMd 

.CO - Talbe Contents^ .COd 

.DF - Date File ^ .DFd 

.EM - Execute Macros .EMn 

.IN - Index ^ .IN 

.NI - No Index ^ .NI 

.NX - Next File ,- .NXf 

.PK - Poke y .PKn,n 

.RP - Repeat File ^ .RP 

.SM - Set Macro </ .SMn 
.ST - Standard Paragraph •' .STf 

?? - Input Data 
• - Word for Index 



m 



. \zM 1 



AS 

A9 

A9S 

AA 

AAS 

AB 

ABS 

B$ 

Bl 

B2 

B9 

BM 



CHS 

CI 

CIS 

COSO 

CO! 

D '. 

D5 

D1S 

D2S 

DF 

E 

ES 

F 

F5 

PI 

Ft 

G 

OS 

cc 

COS 

GHS 

GKS 

H 

IIS 

111 

H4 

I 

12 

13 

II 

IIS 

m 

IN 
INS 

j 
ji 

J2 

K 

K() 

Kl) 

Kl 



- ASCII Value of Character In Word to be Hyphenated 

- Input Buffer 

- Command Indicator 

- Command List 

- Pointer to Next Overflow Record in Dlctnary 

- Area In field statement for Next Overflow Record Pointer in DICTNARY 

- Number of Words in DICTNARY 

- Area in Field Statement for number of words In DICTNARY 

- Data Buffer 

- Spacing 

- l,oop Counter 

- Temporary Storage for Bl 

- Bottom MarRln 

- Length of CS DurlnB Sylllbication 

- Output Buffer 

- Location of Character to be Pulled out of CHS 

- Loop Counter and Test Variable 

- Temp Change Character Storage 

- I of Characters In CIS and CHS 

- Change from String . 

- Temp Location Variable 

- Change to String 

- (150) Contents Array 

- Pointer Into COS 

- Temporary Variable 

- Word Being Hyphenated 

- Temporary String 

- Temporary String 

- Data Input Flag 

- Temporary Variable 

- Hyphenation Points for Word (from DICTNARY) 

- Output String to Add a Word and Its Hyphenation Points Into DICTNARY 

- Temporary Variable 

- Pill/No Fill Flag 

- Temporary Variable 

- Input String 

- Standard Header loop counter 

- Temporary storage for AS 
•• Temporary storage for BS 
~ Temporary storage for CS 

- Loop Counter 

- Header 

- Page Number 

-Temporary atorage f« r 14 
•- Loop Counter 

- Temporary Varluble 

- Temporary Variable 

- Temporary Variable 

- Tab character 

- index Counter 

- Index Flag 

- Index Sort Array 

™ Temporary Variable 

- Temporary Variable 

- Teiijiorary Variable 

- Number of Characters to be Spread in J, , t I Heat Ion 

- (50) Space Locations for Justification 

- Forward/Backward Variable 

- Temporary Variable 



K4 - I of Characters Necessary for Justification of Line 

K5 - Length of CS 

K7 - Forward/Backward Flag 

KD - Temporary Variable 

KE - * of Spaces (or Increments) to be Added Each Time 

KF - * of Times to use KE Before Adding K0 to It. 

KG - Temporary Variable 

KQ - Position to break AS 

LS - Temporary Storage for Left Side of CS 

LI ~ Right Margin 

L2 •- Loft Margin 

L3 - Line Length ( 

L4 - Indent 

L5 - Print Variable f,or Indent 

L8 - Comma position in Left Side string 

L9 - Line Count 

LMO - Left margin array 

LSO - (100) Left Side array 

M - Loop counter for DICTNARY creation 

HASO - (10) Macro array 

MB - Temporary storage for Bl 

MD - Temporary storage for KD 

ME - Temporary storage for KE 

MF - Temporary storage for KF 

N - Sort Variable 

NI - Drive Number for File 

Nl$ - File Name 

N2SO - (15) File Namea In Uee 

NJ - Justify Flag 

NJO - (10) I.aat in - first out (LIFO) stack for HJ 

01 - Temporary storage for LI 

02 - Temporary storage for L2 

03 - Temporary storage for L3 

04 - Temporary atorage for L4 
OP - Output Device 

OU - Flag for Standard Header 

0V - Spacea to left aide of page 

p - Page Length 

PI - Pointer into DICTNARY 

P9 - Change Variable for Page * 

PP1 - Line # for File Output 

Q - Temporary Variable 

qlS - Data File Name ("" if CRT) 

R8 - Comma poaltlon in Right Side atrlng 

RS - Data Field In DICTNARY File 

RM() - Right margin array 

Rl($ - Overflow pointer in DICTNARY record 

RSO - (100) Right Side array 

SHSO - (10) Standard Header array 

SY - Syllabication Flag 

Tl - Hold Area for LI 

T2 - Hold Area for L2 

T3 - Margin Adjust Amount ' 

TM - Top Margin 

WT - Walt Flag 

Ul - Stack pointer for NJ storage 

X1-X9 - Environment preservation atorage 

Z - Temporary Variable 

ZS - Line Number for Line being ProceaBed 

Z9 - Temporary Variable 

ZZS - Dummy Input Variable for Walt 



tL£-tCf?„ 
ELECTRIC SECT - PRINT 

.18 REM FORMATTED FOR 18 PITCH TYPE 

28 CLE ; CLEARi@888 

38 PRINTSTRING*<63, "*",' .PRINTTABa5>"THE ELECTRIC SECRETARY- PRINTING" :PRINTSTRING$<63, "*",' 

48 DEFINT H-2 .DIM C0$(i58), N2$(i5), K< 58;'.. LS<188), RS<188> 

58 LINE INPUT "FILENAME "> Ni$ 

68 0NERR0RG0T078 : Q=5 ; G0SUB2628 . G0T038 

78 IFERR72+1=54 THEN RESUME88 

88 ON ERR0RG0T08: PR I NT "FILENAME <".;N1$.;"> NOT FOUND"; FBRR=iT01888 : NEXT : RUN 

38 REM 

128 OF -1: PR I NT "PR INTER" 

168 Li=78 : Tl=78 ; L2=8 : T2=8 : L3=L1-L2 : Hl=l : F-66 . I N=8 ; I M=8 : C01=8 

178 DF=8 : L3=i : Bl=8 : BM=6 : TM=8 : F=5 : NJ=1 : F'P.l=i8 

188 A9$=". CE. IT. PL, RP. DF. MR. WT. LM. RM. HD. CE. NF. FL BM. TM. JU. NJ. SP. LF. TP" 

138 A3*=A3*+". ST. PK. NR. BL. Pfl. CO. IN. NI. NX. CH. SV. RS. LS. SM. EM. NM. SH. OM. CM. OV" 

2@e m= " " ; B$= " " : C$= " " ; H$= " " 

218 ****** PROCESS A LINE ******* 

228 "** GET NEXT LINE 

238 IF EOF <F> THEN IF OU THEN F=F-1: RETURN ELSE GOSUB 1328: 

IFF16THEN2318ELSECLGSEF . N2$(F)=" " ; F=F-1 : G0T0238 
248 LINEINPUT#F. A$. IF A$=""THEN 238 

258 Z=INSTR>;fi$, u/ "):IF 2 THEN Z$=LEFT$(H$, 2-1) : A$=MID$<H$, 2+l)ELSEPRINT"N0 "' IN "A$ :2$=LEFT$(H$, 5) 
348 '** INPUT FR8M DATA FILE OR CRT 
358 IF DF=8 THEN 428 
368 D=INSTR(A$, "??' I ).IF D=8 THEN 428 
378 IF N2*(3)=""THEN LINEIHPUT"?".; G*:GOTO 488 

388 IF EOF 1 ; 3 > THEN IF F=5THEN PRINT "OUT OF DATA" : CLOSE. ENDELSE CLOSES: DF=8;CL8SEF:F=F-1:G0T0238 
338 LINEINPUT#3.. G*:G$=MID$';G$.. INSTRtG*, "'"HI} 

488 IFD=lTHENA$=G$+MID*(A$, D+2);G0T0358 ELSE As^LEFTIKRJ, D-1)+G$+MID*';H$, D+2) :G0T0358 
418 ■ ** CHECK FOR COMMAND 
428 IF LEF1 $(fl$.. 1) = ". "THEN 123S 
438 '** PRINT A* IF NOT FILLING 
448 IF FL THEN C$=fi$: GOSUB 1378:G0T0238 
458 ■''** ADD f\$ TO B$ 

468 IF LEN , ;BSv+LEr'kA$.L*>255THEN KQ=248-LEN';B$) ;BJ=B$-f'LEFT$';A$/ KG) .'fi$=MID$<fl^ KQ+1) :G8T0588 
478 IF RIGHT$<B$, DO" "THEN B*=B$+" " 
4yy fc!3 : =B$+H* : H$= " " 
438 '** FILL C$ FROM B$ 

588 IF LEFT*<B*,1)=" "THEN B$=MID$<B$, 2) :G0T0588 
518 IF LEN(B*XL3THEH IF LEMMAS) THEN 488 ELSE 238 

528 GOSUB 748. IF L3=LEN(C$) THEN GOSUB 2688 . NJ=8 : GOSUB 1378 . G0SUB2638 : G0TG518 
538 '** JUSTIFY C* 
548 K=1:K1=1 

568 IF L4<8 THEN L3=L3+L4 : L$=LEFT$ <C$.. ABS<L4)) :C$=MID$<C$.. ABS<L4)+1> 
578 K4=L3-LEN<C$) 
588 0NNJG0SUB618 

538 IF L4<8 THEN L3-L3-L4 : C$=L$+C$ 
688 GOSUB 1378:G8T0 518 

618 •**** SUB: ADD BLANKS FROM L TO R 

628 k'=-± 

638 IF Kl THEN K=k+i:Kl=INSTR>;Kl+i, C$, " ") :K(K)=K1:GGT8638 

648 KE=K4/K : KF=K4-RE*K 

658 IF K7=8 OR K=l OR K=K4 OR KFctTHEN K7=l : K8=l : KF=K-K'FELSE K7=8:K8=-1:KE=KE+1 

668 E*="" :K1=1 

678 FOR 1=8 TO K-l :E*=E$+MID$<C*, Kl, Ka>-Ki)+STRIHG$(KE, " ") :KF=KF-1:K1=K(I> : IF KF=8 THEN KE=KE+K8 

688 NEXT:C$=E$+MID$<C*, K(K-1>) 

638 RETURN 



?Sk} ' ** 'z'Ub HILL '<-'$ 

740 IF L3>LEN(B$> THEN C*=B*.B$="" ; RETURN 

7Sy rUR i=L3+l TO 2 STEP-1 

768 IF HID*<.B$, L 1> = " "THEN IF iiID$«.B$, 1-1, DO" " THEN 800 

778 IF M I D* < B$.. L !> = ''- "THEN IF IOL3THEN C$=LEFT?(B$.. I) .B$=MID$CB$.. 1+1) .RETURN 

788 NEKT 

798 PR I NT "ERROR: LINE TOO LONG BETWEEN MARGINS. ".; L3.; "SPACES BETWEEN MARGINS"; 

PRINTLINE TO BE SPLIT IS. " :PRINTZ$: PRINTS*: STOP 

888 Cf=LEFTf^Bf, I-i> :B$=mD$iB$, I+i> 

818 IF MID*-; 8*.. i, !'>=" " THEN B$=MID$tB$, 2) :G0T0818 

828 C=LEN<C*>:IF L3-C<6 OR SV=8 THEN RETURN 

838 '** SVLLABICATION 

848 D=INSTR>;B$, " ">:IF D THEN D*=LEFT*<B£, D--DELSE D*=B* 

858 IF RIGHTED*, 1)=". " THEN RETURN 

868 D=LEN <D$>. IF DO THEN RETURN 

878 Dl$="" 

888 P1=8:F0R 1=1 TO D: A=ASC(HID$(D*. I)) 

898 IF fl<65 OR 95<A THEN 928 

988 D1$=D1$+CHR* < A > : P1=P1+A 

918 NEKT 

328 GOSUB 1888 

938 D=LEN<D1*> : IF D<9 THEN RETURN 

948 GET 4, PI: E=INSTR(R$, Dl$) 

958 IFE=8THENIFINSTR<R$, CHR$a26)»(238-D)THENPl=Pl+19; 

G0SUB1888 . G0T0928ELSE998 
968 Fi=E+D-hl:E$=t1ID*<R*, Fl, INSTR(F1, R$, CHR*<125>}-Fi> 
978 F0RI=LEN';E$;T01STEP-1 : G=ASC<MID*<E*, I ) ) : 

IFC+Ga.3THENC$=C*-i- u "+LEFT$<B$, G-D + "-" :B$=MID$(B& G) : 
RETURNELSENEXT 
388 RETURN 
998 PRINT :D2$="~-> "+D1$+" <— ": 

PRINTD2*.; " IS NOT IN MY HVPHENATIOH DICTIONARY" 
1888 PR INT "PLEASE TVPE IT IN WITH DASHES BETWEEN SYLLABLES. " 
1818 G$="":LINEIHPUT"?";G$:IFG*=" IT THEN RETURN 
1828 E$="" : J=0:G=i 

1838 H=INSTR(G, G$, "-">: IFHTHENE*=E$+CHR$tH-J) : J=J+1 : G=H+1 : G0T01838 
1848 F$=D1*+CHR3 : ( 124 ) +E$+CHR$ ( 125 ) +CHR* ( 126 > 
1858 G*=LEFT*<R$, INSTR(R$, CHR*<i26>}-~l> 
1868 IF LEN<G*}+LEN<F*X244 

THENLSETR$=G$+F* : PUT4.. PI : 

GET4, 1: AB=AB-M.LSETAB*=MKI$<AB) :PUT4, 1: 

G0T0978 
1878 P1=P1+19 : G0SUB988 : G0T01868 
1888 P1=(INT<P1^-51+FIK<INT<P1>/51))+1 : RETURN 

1038 ******* SUB :MAKE CHARACTER SUBSTITUTIONS 
1188 RETURN 



1158 '********** SUB: HOP" & HEADER 
1168 IF L3=TM+1 

THEN 1188 

ELSE FOR L9=L9 TO P+TM: 

GOSUB 2888. 

NEKT ; H1=H1+1 
1178 IF WT THEN INPUT "WRIT' — ALIGN PAPER"; 2Z* 
118e Z9=8i:GGSUB2688.L3=TH+i:IF H*="NO" THEN 1238 
1198 IF H$=""THEN £$="" ELSE C$="~ " 
1288 C*=H*+C*+ " PflGE"+STR*(Hl; 
121.8 IF BK1THENB1=1 
1226 H4=L4 : NJ =8 : L4=8 : G0SUB13S8 . L4=H4 

1238 GG$=fl$ . K1=FL . ffi=SV : K3=LM : LM=8 . X4=T1 : *5=T2 : X6=KD ; K7=KE . X8=KF 
1248 GU=1 : F0RGG=6TO3 . IFLEN<SH*<'GG>>THENfl*=SH$<GGv ;G8SUB1?28 
1258 NEKT.0U=8 
126G A$=GG$ : FL=Xi ; SV=K2 . LM=X3 ; T1=K4 i T2=K5 : KD=X6 : KE=X7 : 

KF=K8 : B1=Z3 : GOSUB2630 
12YW RETURN 



1288 '+******* SUB. COMMAND HANDLER *********** 

1238 K7=8 

1308 G0SUB1928:HC=HSC(MID$(fl*, 2)) . IFAC>36THENMID$<A*, 2.. i>= 

CHR*(AC-32>.MID$<fiJ, 3, 1)=CHR$<ASC(MID$<H*, 3))-32) 
1318 AC=ASC<MID$CA$, 2)> ; IFAC>36THENMID$>;A$, 2, l)=CHR$(AC~-32) : 

MID$<A$, 3, 1)=CHR$<RSC(MID*(A$, 3))-32) 
1328 fl9= I NSTR < R9$, M I D$ < fl*, 1.. 3 > ) /3 
1330 ONA9GOTO1410, 1448, 1458, 1478, 1490, 1516, 1528, 1538, 1548, 1560, 

1578, 1580, 1618, 1628, 1630, 1648, 1688, 1698, 1780, 1720, 1738, 

1748, 1758, 1778, 1738, 1888, 1816, 1828, 1838, 1868, 1386, 1358, 

1598, 1688, 1656, 1668, 1676, 1420, 1558 
1348 PRINTMID$(fl$,l, 3), " IS fi BAD COMMAND ON LINE "; Z$; :GOTO1830 



1358 LM=8.L8=8 

1368 L8=INSTR<,L8+1, A$, ", "):IFL8 THEN LS(LM)=VHL(MID$':h$, L8+D) : 

LM=LM+1 : G0T01368 
1378 LS(LM)=8:L8=8;G0T01528 
1380 RM=6:R8=6 
1338 R8=INSTR<R8+1, A$, ", "):IFRS THEN RS(RM)=VAL(MID$<A$, RS-f-D) : 

RM=RM+1 ; G0T01338 
1468 RS<RM)=8:R8=8:G0T01538 
1416 L4=VAL<MID$(A$, 4, 1)) : L3=L3-L4 : G0T01838 
1428 IFMID3K A$, 4, 1>=" ?"THENPRINTMID*(A*, 5) 
1430 GOTO1830 

1448 P=VAL(MID* : (A$, 4)>:G0T01898 
1458 CLOSE F:Q=F;N1S : =N2*<F) 
1468 G0SUB2628 : G0T01838 
1478 N1$=MID*(H$, 4) ; DF=i : 

IF ';LEN(Nl$))flND(Nl$ON2$<3>) 
THENGi=3 : G0SUB2628 
1488 N2* ( 3 ) =N1£ ; G0T01898 

1498 T3=VAL':.MID*<A$, 4)).IFT3THEN Li=Ll--T3:L2=L2+T3 

ELSE L1=T:1:L2=T2 
1588 L3=Ll-L2 . G0T01838 



1516 W i =VnL < M I D$ < fl$, 4 ) ) : GGTU1890 

1528 L2=VfiL < M I D$ < fi$, 4 ) ) : T2=L2 : L2=Ll-L2 : 00101896 

.i-j i-fc! Li~vViL UiiL- 1 3- '-.H 3- .■'■+,■'.-' . i l = Li L^ = L1 — Lii,' . li>J i uio..- ! y 

I04t1 H$ = i''l i 0$ '•■. HS,. 4 ) . Liu ! uiyyO 

I.DDU UV— v'HL'i PiiLJ* 1 -. H*,' 4.5 .5 , liO i UlciyO 

1560 i.4 : =STKiNG$ l siN'i' v'-.L^-LENdllDJ^F!*.. 4>.>; i - , '2; i .. " ">+MID$(R$.. 4) 

GGSU82688 : NJ=@ : G0SUB1978 : G0S082698 ; G0T01.988 
i5?@ FL=1 : G0T01898 
1588 FL=8 : G0T01898 

1598 I = VflL ( M I D$ >-. Fi$.. 4 .5 ) : Mfi$ < I > =M I D$ ( H$.. 5 ) : GGTO1380 
1680 I=VflL';MID$(H$.. 4)> :H*=LEFT$(R*.. 4)+Mfl$>; D+MIP$<fi$.. 5) iG0T01898 

1610 BM='/fiL < M I Df t. fl$.. 4 ) ) : G0T01898 

1628 TM= VFiL ( H I D$ (. n$.. 4 ) > : G0TG1898 

1630 NJ=VflL(MID$i.H$, 4)) :G0T01898 

1648 NJ=0 ; G0T01838 

1658 03=L3 ; 04=1.4 ; 02=L2 1 01=L1 . L2= VflL ( M 1 0$ <. H$, 4 > > . 

Li=vfiL.<riID$(H$, Ii-JSTR(fi$, ",. ")+!>) :L3=L.1-L.2:L4=8: 

G0T01898 
1668 l=VHL(.MIDt(HiF, 4.5):SH*U) = ". ST"+HID$<fi$, 5) ;GOTO1830 
1670 L3=83 ; L4=04 : L2=02 : Ll=01 . GOTO1890 
16b'8 Bl= VHL •■. M 1 D$(. H$.. 4 ) ) ™1 : GOTO1830 
1698 C*=MID$(H$, 4) : K=l . Kl=l . K4=L3--LEN(C$) : G0SUB2686 . NJ=0 : 

GOSUB620 ; G0SUB1978 : GOSUB2630 : G0T0238 
1780 IF L9>P-BM"VFiL<MID$(fl$.. 4)) 

THEM GOSUB 1160 
1710 GGTO1890 

1728 F=F-M:Nl*=f'1ID$ i ;fi$.. 4) :Q=F:G0SUB2628:G0T01898 

1738 POKE VflL (MI D*>:.H$, 4)), vflL(MID$(flf, INSTRCH$, ", ";+l>> :G0T01838 

1748 PRINT'WfllT "i MID$(fl$, 4); :LINEINPUT" ",; ZZ$:G0T01898 

1758 B3=Bi:Bl=VHL(riID$(fl$.. 4;0:IF Bl=8 THENBi=B9 : G0T01898 

1768 G0SUB2818 : B1=B3 . G0T01838 

1778 P9=VflL>;MID*<H$.. 4>).IF P9 THEN Hi=P3--l 

1788 G8SUB1160 : G0T01898 

1790 C0$(C01)=MID$<H$, 4)+CHR$(127>+STR$(Hl) : C8i=C0i+i : G0T01898 

1.888 I N=l : OPEN " " , 1, " I NDEX " : G0T0i838 

1818 IN=0:G8TO1898 

1828 N1$=M 1 0$ < m, 4 > : Q=F : G0SUB2628 : G0T01388 

1838 G0T01838 : REM . CH 

I860 SV=VHL<.MID$(fl*, 4 ) > : CL0SE4 : 1 F SV=8 THEN1898 

1878 OPEN "R", 4.. "DICTNfiRV" :FIELD#4, 245 AS R$, 2 HS flB$, 8 HS Q$: 

GET 4.. 1 
1888 IF G*= i, DICTNFiRV"THEN fiB=CVKfiB$> 

ELSELSETG$="DICTNHRV" : LSETR$=CHR$(125)+CHR$(126) : 
LSEThB$=MKI$<8); 

F0RM=1T051 : PUT4, M : NEKTM : G0T01898 

1,898 R3=INSTR<2.. fi$, ". ") : IFfi9<>8THENfi$=MID3 : <H$.. H9) ;G0T01318 
1988 B$=" " . G0T0238 



1910 ■-#.+++ SUB: RUN OUT B* 

1328 If B*=""THEN RETURN 

1938 C$=B$ : B$= " " : G0SUB2688 : N J=8 

1948 I F < NF=8 > AND < L3+BKP) THENGGSUB1388ELSEG0SUB1378 

1958 G0SUB2638 : RETURN 

1368 '***** SUB. PRINT fi LINE ***** 

1970 IF L9>P-BM THEN GH$=B$ : :GK$ =C$ : G0SUB1168 : Bf =GH* : C$=GK$ 

1980 GOSUB1100 

1998 G0SUB2i48:IFLH=8 THEN L3=L3+L4 

2088 L4=0 ; L9=L9+1 ; IFL9=8THENLPRINT" " 

2818 IF Bl=8 THEN GGTO2860 

2028 FOR B2=l TO Bi 

2838 GOSUB 2888 

2848 L3=L9+1 

2858 NEWT 

2868 C$=" u : RETURN 

2y?0 ***** SUB: OUTPUT BLANK LINE TO CORRECT DEVICE 

2888 REM 

2188 LPRINT" ": RETURN 

2138 -■#*** SUB: SEND OUTPUT TO CORRECT DEVICE 

2148 REM 

2178 LPRINTTAB<L2+L4*0V>.; , IFL4>8THENL5=1ELSEL5=HBS(L4)+1 

2188 LPRINT LEFT$(C$, L5>.; 

2288 LPRINTHID$CC$, L5+1) ; RETURN 

2238 ***** FINAL OUTPUT ************* 

'dSkM ■ *** close files 

2318 REM 

2688 G0SUB1168 : RUN 

2618 '***** SUB. OPEN FILES 

2628 CLGSEttQ . N2* < Q ) =N1$ 

2638 IF R I GHT$ < Nl$, 1 > = " " THENN1$=LEF T* ( Nl$, LEH ( Nl$ ) -i): G0T02638 

2648 IF LEFT$(RIGHT$<N1*, 2),1>=":"THEN N1=VAL';RIGHT$<N1J, 1)>ELSE Nl=8 

2658 OPEN " I" , Q.. Ni$ : L I NE I NPUT#Q, G$ 

2668 IFG*<>"8 '"" THENPRINTNi*.; " IS NOT AN ASCII FILE".; : F0R2=1T01888 : NEKT : RUNELSE RETURN 

2688 U1=U1+1 : NJ(U1)=NJ : RETURN 

2638 NJ=NJ<U1) ; U1=U1-1 : RETURN 
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20 March, 1979 
.bll 

Mr. John Jones 
3 33 Hidden Vale Rd . 
Jumpoff, California 93789 
.bll 

Dear Mr. Jones: 
.bll.fl.it5 

It has come to our attention that your account of $1500.00 
is seriously past due. 
•bll . it5 

In order to protect your credit rating with us, it will be 
necessary for you to bring this account current by the end 
of the week. 
.bll. it5 

If this is not possible, I would like to hear from you at 
your earliest convenience in order that we may discuss 
the manner in which this account can be cleared. 
. bll . it5 

Please call me at 567-8901 between 8am and 5:30pm. 
. nf 
.bll 

Sincerely, 
.bl3 

L. A. Stoner 
Credit Manager 
,bl2 
LAS/ 
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MflRDOT MANAGEMENT COMPANY 

77 HILLSIDE AVE 

WILLISTON PARK NV 11596 



< DATE > 

< NAME > 

< ADD1 > 

< ADD2 > 

DEAR TENANT 

RE: BASE RENT ADJUSTMENT 

PURSUANT TO THE TERMS OF PARAGRAPH < PAR. NO. > OF VOUR LEASE, VOUR 
MONTHLY RENTAL HAS BEEN ADJUSTED IN ACCORDANCE WITH THE APPLICABLE CONSUMER 
PRICE INDEX FOR THE SUCCESSIVE SIX-MONTH ANNIVERSARY OCCUR I NG ON < DATE > 



VOUR NEW MONTHLY RENTAL FOR THE PERIOD < DATE > THROUGH < DATE > IS * 
< 808. 06 > . WHEN FORWARDING VOUR < MONTH > RENT OF * < 800. 00 > , PLEASE 
INCLUDE AN ADDITIONAL $ < 00. 00 > REPRESENTING THE RETROACTIVE AMOUNTS DUE 
FOR THE MONTHS OF < MONTH AND MONTH > . 

VERY TRULY YOURS, 



MARDOT MANAGEMENT COMPANY 



a - 

19 '. CM MflRDOT CPI AD J TENANT LETTER - CPIADJ 

28 •'. BLi. NF. HDNO 

30 ". SV1 

46 •'. LM25 - 

56 'MflRDOT MflNflQEMENT COMPflNV 

60 ". LM38 

78 "77 HILLSIDE AVE 

80 ". LH26 

96 'WILLISTON PARK NV 11596 

180 -. JUL DF 

118 ■". LM55. BL3 

128 ■?? 

JL-S@ ' . Li'lS. E'L-i- 

140 •'?? 

150 -'?? 

160 •'?? 

178 -. BLI 

180 "DEAR TENANT 

198 ■". BLI 

200 -'. LM25 

210 -RE: BASE RENT ADJUSTMENT 

220 -'. BLI. TL ITS 

230 '. LM© 

248 -PURSUANT TO THE TERMS OF PARAGRAPH ?? 

250 -OF YOUR LEASE, VOUR MONTHLY RENTAL HAS BEEN ADJUSTED IN 

260 -ACCORDANCE WITH THE APPLICABLE CONSUMER PRICE INDEX 

270 -FOR THE SUCCESSIVE SIX-MONTH ANNIVERSARY OCCUR I NG ON ?? . 

280 '. BLI. ITS 

290 -VOUR NEW MONTHLV RENTAL FOR THE PERIOD ?? THROUGH ?? IS * 

300 'WHEN FORWARDING VOUR ?? RENT OF * ?? , 

310 -PLEASE INCLUDE AN ADDITIONAL * ?? 

328 -REPRESENTING THE RETROACTIVE AMOUNTS DUE FOR THE MONTHS 

330 -OF ?? . 

340 -. NF 

350 ". BLI 

360 -. LM30 

370 'VERY TRULY YOURS, 

380 ". BL3 

390 -'. LM28 

400 'MflRDOT MANAGEMENT COMPflNV 

418 '. BL2 
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16 REM FORMATTED FOR 18 PITCH TVPE 

2@ CLS : CLEAR7088 : CLEAR FRE(0> 

28 PRINTSTRING$<63, "*"> :PRINTTAB<15}"THE ELECTRIC SECRETARV- PRINTING" :PRINTSTRING$(63, "*") 

40 DEFINT A-Z :DIM C0$<158}, H2$<15>, K-C58), LS<100>, RS<100> 

59 LINE INPUT "FILENAME "; Nl* 

68 0NERR0RG0T078 : 0=5 : G0SUB2620 : G0T098 

78 IFERR/2+l=54 THEN RESUMES© 

88 ON ERRORGOTOO: PR I NT "FILENAME <"; Nl$.; "> NOT FOUND": FORA=1TO1O00: NEXT: RUN 

38 REM 

-4ee-fl*=JJJi-aNpyT^ 

-4-l-0-IF~fl*=-"-«-THEH"58-" 
120 PF-fcEFF*tfl$> l)="P !i -THEri OF-1 . PRINT "PRINTER" : G0TQ16er~' 

, ,148-REM 0P=2: Nl*= ,,u :L I NE INPUT "FILENAME".! Nl* : IF Nl$=" "THEN288- - - • 

160 Ll=70 : Tl=70 ; L2=0 : T2=0 : L3=L1~L2 : Hl=l : P=66 i IN=8 : IM=0 : CG1=8 
170 DF=8 : L9=l : Bl=8 . BM=6 ; TM=8 : F=5 ; NJ=1 : PP1=18 : i I$=CHR«9> 

180 A9$= n : [[/ it/plrp/tj-f: ma;wt. lm: rm: hd/ce: nf.'fl BM. TM.JU.NJ, SP. LF. TP" 

.190 A9$=A9$+". ST. PK. Wfl. BL. PA. CO. IN. NI. NX. CH. SV. RS. LS. SM. EM. NM. SH. OM. CM. OV" 

200 A*= " " ; B*= " " . C$= " " : H$= 

210 '****** PROCESS A LINE ******* 

228 -** GET NEXT LINE 

230 IF EOF <F) THEN IF OU THEN F=F~1 : RETURN ELSE GOSUB 1920: IF F<6 THEN 2318 ELSE CLOSE F:N2*<F)="":F=I 

240 LINEINPUT#F, A*: IF fl*=""THEN 238 

258 2=INSTR<A$, "-'"): IF 2 THEN 2$=LEFT$(A*, 2-1) :A*=MID$(A*, 2+l)ELSEPRINT"N0 "' IN "A$:2*=LEFT$(A$, 5> 
— 268--%* CHANGE TABS TO BLANKS 

.,.„»«-«= I NSTR < A *, 1 1 $ ) : I F II THEN M I D* < A*, 11,1)= " " : fl*=LEFT* ( A*, 1 1 > +STR I NG* < 7- < 1 1 -1 ) , " " ) + "MI D* < A$, 1 1 +: 
-288—-'** ADD WORDS TO INDEX 
—SS&-IF IN=8 THEN 350 
^jm- 1 2= I NSTR <A$, "C"):IF I2=8THEN358 

,318 I3=INSTR(I2, A$, " "):IF 13=8 THEN I3=LEN(A$) 

,~32e-PRINT#:L MID$<A& 12*1, I3-I2)+CHR$<127)+STR$(H1) : IF I2>1 THEN A$=LEFT$-CA:I, I2-1>-H1ID$<A$, I2+1>ELSE f 
—358—1 M= I M+l : GOTO 388 

348 '"** INPUT FROM DATA FILE OR CRT 

358 IF DF=0 THEN 428 

368 D=INSTR(At, "??"): IF D=8 THEN 420 •UUA- DI-JHk 

378 IF N2$<3)=""THEH LINEINPUT"?"; G*:QOTO 480 

380 IF E0F(3>THEN IF F=5THEN PRINT "OUT OF DATA" : CLOSE :ENDELSE CLOSES: DF=8 : CLOSEF : F=F-1 : G0T0238 

398 LINEINPUT#3, G$:G$=MID*(G$, INSTR(G$, "'"HI) 

488 IFD=1THENA$=G$-H1ID$<A$, D+2) :G0T0356 ELSE A*=LEFT$(Af, D-D+GJ+MIDf <A$, D+2> :G0T035G 

410 -** CHECK FOR COMMAND 

420 IF LEFT$-CA$, 1) = ". "THEN 1290 

430 '** print f\$ I IF NOT FILLING 

440 IF FL THEN Cf=A$: GOSUB 1978:G0T0238 

458 -"** ADD A$ TO B$ 

460 IF LEN(B$)+LEN<A$>>255THEN KQ=248-LEN(B$> :B$=Bf+LEFT$(A$, KQ> :A*=MID$<A$, KQ+1) :GOTO5O0 

470 IF RIGHTS-CBS, DO" "THEN B$=B$+" " 

480 B$=B$+A$:A$="" 



490 '"** FILL C$ FROM B* 

568 IF LEFTS <B$,1>=" "THEN B$=MID*<B$, 2) :QOTO580 

518 IF LEN<B$XL3THEN IF LEN<A*> THEN 488 ELSE 228 

528 GOSUB ?48:IF L3=LEN<C*} THEN GOSUB 2688 : HJ=8 : GOSUB 1978 : GGSUB2638 : G0T0518 

538 '** JUSTIFV C* 

548 K=l:Kl=i 

558 IF 0P>1 THEN IF NJ>1 THEN NJ=1 

568 IF L4<8 THEN L2=L3+L4:L$=LEFT$<C$, HBS(L4)> :C$=MID$<C*, FIBS'; L4)+l> 

5F8 K4=L3-LEN<C$> 

588 mi^m GOSUB 618/*?§€trFl®*** 

598 IF L4<8 THEN L3=L3-L4 ; C$=L*+C$ 

688 GOSUB 1378: GOTO 518 

610 '**** SUB: HDD BLANKS FROM L TO R 

628 K=-l 

630 IF Kl THEN K=K+1 :K1=INSTR<K1+1, C$, " "> ;K<K>=K1:G0T0638 

648 KE=K4/K : KF=K4~KE*K 

658 IF K7=8 OR K=l OR K=K4 OR KF<1THEN K7=l i K8=l : KF=K-KFELSE K7=8 : K8=-i : KE=KE+i 

668 E*="":K1=1 

678 FOR 1=8 TO K-i:E$=E$+MID$<C$, Kl, K<I)-K1)+STRING*<KE, " ") :KF=KF-1:K1=K<I) : IF KF=8 THEN KE=KE+K8 

688 NEXT i C*=E*+MID*<X& K<K-1) ) 

698 RETURN 
-_?ee,/** SUB. SPREAD BLANKS 

. 7i0 •■ #* SUB : SPREAD CHARACTERS 
-: 728 RETURN '** JUST IN CASE SPREAD IS CALLED 

F38 '** SUB FILL C* 

748 IF L3>LEN<B$) THEN C*=B*:B*="". -RETURN 

758 FOR I=L3+1 TO 2 STEP-1 

768 IF MID£<B$, 1, 1)=" "THEN IF HID$<8$, 1-1, DO" " THEN 888 

778 IF M I D* ( B$, 1,1)="-" THEN I F I <=L3THEN C*=LEFT* < B$, I ) : B*=M I D* ( B$, I +D : RETURN 

788 NEXT 

738 PR I NT "ERROR: LINE TOO LONG BETWEEN MARGINS. ".; L3.; "SPACES BETWEEN MARGINS. ": PRINT "LINE TO BE SPLI 

800 C*=LEFT*<B*, I-D:B$=MID$(B$, 1+1) 

818 IF MID$(B$, 1, D=" " THEN B$=MID$<B$, 2) .G0T0818 

828 C=LEN<C*):IF L3-K6 OR SV=8 THEN RETURN 



838 ''** SVLLflBICfll ION 

848 D=INSTR<B$, " "):IF D THEN D$=LEFT*(B$, D-1>ELSE D$=B$ 

856 IF RIGHT$(D$,i)=". " THEN RETURN 

860 D=LEN<D*> : IF DO THEN RETURN 

87S Dl$="" 

880 P1=0:FOR 1=1 TO D:H=HSC(MID*CD$, I)):fl=fl+32*(95<fl> ■' ???? 

890 IF A<65 OR 95<A THEN 920 

900 D1$=D1$+CHR* < fi ) : Pl=Pl+f i 

910 NEXT 

926 GGSUB 1080 

936 D=LEN<D1$): 

IF DO THEN RETURN 
940 GET 4, PI. E=INSTR<R*.. Dl*> 
950 IF E=0 

THEN IF INSTRCRf, CHR$(126)»(238-D> 
THEN P1=P1+19 : GOSUB1080 : G0T0920 
ELSE 998 
960 F1=E+D+1 : E$ =MID$<Rt, Fl, INSTR<Fi, R$, CHR$<125> )-Fi) 
970 FOR I=LEN«:E$) TO 1 STEP -1: 

G=fiSC<MID$<E$, I)): 

IF C+G-CL3 

THEN C*=C*+ " " +LEFT* ( B$, G-l }+'■-»; B$=H I D* < B$, G ) : RETURN 
ELSE NEXT 
98@ RETURN 
998 PRINT :D2$= "---■> "+D1*+" <— " :D2$=STRIN6$<(48-LEN<Dl*>)/2, " ")+D2$: 

PRINTD2$: PRINT" IS NOT IN MV HYPHENATION DICTIONflRV" 
1000 PR I NT "PLEASE TVPE IT IN WITH DASHES BETWEEN SYLLABLES. " 
1610 G*= " " : L I NE I NPUT " '? " ,• G* : I FG*= " " THEN RETURN 
1020 E$="":J=0:G=1 
1030 H=INSTR(G, G$, "-">: 

IF H THEN E*=E*+CHR*<H-J):J=J+1:Q=H+1:GOTO1030 
1040 F$=D1$+CHR* < 124 ') +E$+CHR* < 125 ) +CHR$ ( 126 ) 
1858 G*=LEFT$<R$, INSTR<R$, CHRt(126))-l) 
1068 IF LEN(G$)+LEN<F$X244 

THENLSETR*=G*+F* ; PUT4, PI : 

GET4, 1 : RB=AB+1 : LSETAB$=MKI$(AB) : PUT4, 1 : 

GOTO970 
1070 Pi=Pl-i-19 : G0SUB988 : GOTO1O60 
1080 P1=<INT<P1>-51*FIX(INT<P1)/51))+1 : RETURN 
1090 '****#** SUB: MAKE CHARACTER SUBSTITUTIONS 
1100 44^-gf^sg-.-pH^ RETURN 

*±±0--ei=0:^ 

FOR CG=1 TO CH 
A129 C I = I NSTR ( C I +1, C$, M I D* < CH$, CG, 1 ) > 
M§§-— IF CI THEN MID*(C*,CD=MID*<CI&CG,1>:GOTO1120 
,43.48 NEXT: RETURN 



1158 '•#********* SUB: HOF & HEADER 
1169 IF L9=TM+1 
THEN 1180 

ELSE FOR L9=L9 TO P+TM: 
GOSUB 2688: 
NEXT : H1=H1+1 
1178 IF WT THEN INPUT "WHIT ~ ALIGN PAPER ".; 22* 
1180 23=Bl:G0SUB2688:L9=TH+i:IF H$="NO" THEN 1238 
1198 IF H*=""THEN C$="" ELSE C*="- " 
1288 C$=H*+C$+" PAGE"+STR|:<H1) 
iillfcf i'r Bli.l i HtNbl— 1 
1228 H4=L4 : NJ=8 : L4=8 : GGSUB1388 : L4=H4 

1218 GG$=H$ : , : -,i=FL : X2-5V : rt3=LM : LM=8 X4=T1 ,K5=T2 ftb=KD : }' : !?=k£ >;8=KF 
i,24@ OU=l : FGRGG=8TG3 : IFLEN<:.SH¥i.GG > >THENA$=SH*03G> : G0SUB1728 
1250 NEXT:0U=8 
1260 A$=GG$ : FL=K1 : SV=H2 : LH=X3 : T1=X4 : T2=X5 : KD=K6 : KE=X7 : 

KF=K8 : Bl=29 : GOSUB2630 
1278 RETURN 

1288 -'***+**** SUB: COMMAND HANDLER *********** 
1298 K7=8 
1388 GOSUB1920:AC=ASC<;MID$<A:f, 2>) : IFAC>96THENHID$<A$, 2, 1)= 

CHR$<AC-12>:MID*(A$, 3, 1)=CHR*<ASC(MID$(A$, 3)>-32) 
1318 AC=ASC(MID*<A$, 2)> : IFAC>96THENMID$(A$, 2, l)=CHR$<AC-32> : 

MID*<A$, 3, 1)=CHR$(ASC(MID$(A$, 3))-32) 
1328 A9=INSTR(A9$, MID*(A$, 1.. 3))/3 ^ ^ t/ ^ 

1330 0NA9G0T014i8, 1448, 1458, 1478, 1438, 1518, 1520, 1530, 1540, 1560, 
1578, 1588, 1618, 1628, 1638, 1648, 1688, 1690, 1708, 1728, 1738, 
1748, 1758, 1778, 1798, 1888, 1818, 1828, 1838, I860, 1380, 1350, 
1598, 1608, 1650, 1668, 1678, 1428, 1558 
1348 PRINTMID$(A$, 1, 3>, " IS A BAD COMMAND OH LINE ".; Z*; :GOTO1890 
• L S 1358 LM=8:L8=8 

1368 L8=IHSTR(L8+1, A$, ", "):IFL8 THEN LS<LM)=VflL<MID*<flfc L8+D): 

LM=LM+1 : G0T01368 
1378 LS<LM)=8:L8=0:GOTO1520 
. M 1388 RM=8:R8=0 

1390 R8=INSTR(R8+1, Hf, ", "):IFR8 THEN RS(RM)=VAL<MID$(A$, R8+l>> : 

RM=RM+1 : G0T01398 
1480 RS(RM)=8:R8=8:G0T01538 
.7.7^ 1418 L4=VAL<MID$(A$, 4, 1)>:L3=L3~L4:G0T01898 
,inl 1428 IFMID*<A$, 4, 1)="?"THENPRINTMID*(A$, 5) 

1438 G0T01898 
, PL ot, 1448 F - VAL < M I D$ < A$, 4 > ) : G0T01898 
( £P 1458 CLOSE F.Q=F:N1$=N2$<F) 

1468 G0SUB2628 : G0T01898 
.OP A 1478 N1*=MID$(A$, 4).DF=1: 

IF (LEN(Hl*))AND';Nl$ON2$(3)) 
THENQ=3:G0SUB2628 
1488 N2* ( 3 > =N1$ : G0T01898 
.fAhf* 1490 T3=VAL<MID$<A$, 4)>: 
IF T3 

THEN L1=L1~T3 : L2=L2+T3 
ELSE L1=T1:L2=T2 
1588 L3-L1-L2 : G0T01890 
, wyl 1510 WT=VAL ( M 1 0$ ( A$, 4 ) ) : G0T01838 
LW« ±528 L2=VHL<MID$(A$, 4::O:T2=L2;L3=Li~L2:G0T01898 
'm^ 1538 Ll=VALc:MID$<A$, 4;O.T1=L1:L3=L1-L2:GOT01898 
\fiDA 1548 Hf=MID$(A$, 4):GOTO1308 
g 0^ - 1558 V= VAL ( M I D$ ( M, 4 ) ) : G0T01898 



,c£"«.l 1568 C$=STRING*(INT<(L3-LEN(MID$(H$, 4;OJ/2>, " ")+MID$(fl$,, 4) : 

G0SUB2688 : NJ=@ : GOSUB1.970 : G0SUB2638 : G0T01988 
.NF 1570 FL=1 : GOTO1890 
.Ft. 1580 FL=8 : G0T01898 

J Mm 1590 I = VfiL ( M I D$ ( fi$, 4 J' ) : Mfi$ ( I ) =M I D$ < H$, 5 ) : GOTO1308 
. i^M <h 1600 j = VflL <; M | D$ ,; m t 4 ) ) : fl$=LEFT$ (. fl$, 4 ) +Mfl* ( I ) +M I D$ < H$, 5 ) : G0T01898 
, f a 1610 BM=VHL < M I D$ < Fl*, 4 ) ) : GGT01898 
,TM * 1620 TM= VflL ( M I D$ ( Fl$, 4 ) ) : G0T01898 

* j y in .1638 N J=VflL ( M I D$ < Fi$, 4 ) ) : GGT01898 
^j- 1648 NJ=8 : GGTul.898 

' mm r-\ 1658 03=0 : 04=L4 ; 02-L2 : G1=L1 : L2=VflL(MID$(H$, 4) ) : 

Ll=VflL(MID$(fl$, IHSTR<fl$, ", " Hi) ) : L3=L1~L2 : L4=8 : 

G0T01898 
, S rt 4 1668 I =VFiL < M I D* < Fi$, 4 ) ) ; SH* < D = " . ST " +M I D* < Fi$, 5 ) : GOTO1890 
•°M 1678 L3=e3:L4=04:L2=82:Ll=01:GGTG1898 ? 

• 5 ff~ 1688 Bi= VflL < M I D* < Fi$, 4 ) ) -1 : G0TG1898 

, ufi 1698 e$=MID$<H*, 4) : K=l : Kl=l : K4=L>LEN<C*> : G0SUB2688 : NJ=8 : 

G0SUB628 : G0SUB1978 : G0SUB2638 : G0T0238 
,TPm 1788 IF L9>P-BM-VflLt'MID*<fl*, 4)) 
THEN GOSUB 1168 
1718 GGT01898 
J( STf 1728 F=F+1 . Ni$=MID$<fi$, 4) : Q=F i GGSUB2628 1 G0T01898 
, P K 1738 POKE VflL ( M I D$ < H$, 4 ) > , VflL ( M I D$ < H$, I NSTR ( fl$, "," ) +1 > ) : G0T01898 
. WA 1748 PRINT"WfiIT "j MID$(H*, 4).; :LINEINPUT" ".; Z2$:G0T01898 
,&l(h 1758 B9=Bl;Bl=VfiL<HID$<H$, 4>>:IF Bl=8 THEN81=69 : G0T01898 

1768 GOSUB2810 : Bi=B9 : GOTO1890 
,p|S|in 1?7 P9=VfiL<MID$<H$, 4)). IF P9 THEN H1=P9-1 

1788 GOSUB1160 : GOTO1890 
, CO I 2798 eO£<COi}=MI[:>$<H$, 4)+CHR$(127)+STR*<Hl) : C01=C01+1 : G0T01898 
, Ihl 1888 IN=1 : 0PEN n 0", i, " INDEX" : G0T01898 
\tf1 1818 IN=8:G0T01898 

V" -- 1828 Nl*=MID$CH$ J 4;':y=F:G0SLIB2628:G0T01988 
1 1 1838 CG*=HlL'-¥'.fi*, 4. 1.' . C G= VflL (111 D$<fi$, 5) ) : 
b~- IF flSCXCGiOOCG 

: "" THEN CH*=CH¥-+CG$ : C I *=C I $+CHR$ < CG ) : CH=LEN < CH$ ) : G0T01898 
_^^40~SF- ;= 444£IRitni^QG^„i,«,J£.,.CE. =: l 

<J~w THEN CH$=ffIW<CH$, 2) : ei$=MID*<CI$, 2) 
ELSE IF CF=CH AND CH<>8 

THEN CH*=LEFT* ( CH$, CF-1 ) : C I $=LEFT$ ( C I *, CF-1 > 
ELSE CHf=LEFT$(CH$, CF-1HMID$<CH*, CF+1) : 

C:I$=LEFT$(C:I*.. CF-1)+MID*<CI*, CF+1$8, K_22N„"1§" @ ! MMGD I V. ]MGDMM I &C""""* 
■1830-6H=LEM<eH$) : G0T01898 
, 5 y 1 i860 SV= VflL < M I D* ( Fit-, 4 ) ) : CL0SE4 : 1 F S V=8 THEN1898 

1878 OPEN "R", 4, "DICTNflRV":FIELD#4 J 245 AS R*, 2 AS flB$, 8 FiS G$: 

GET 4.. i 
1888 IF G*="DICTNflRV"THEN FiB=CVKFiBf> 

ELSELSETG$="DICTHHRV" : LSETR$=CHR$(125)+CHR$<126) : 
LSETflB*=MKI*<0) i 

F0RM=1TG51 : PUT4, M : NEKTM : G0T01898 
1890 fi9=INSTR<2, fl$, ". "): 
IF A908 
THEN fl$=r'1ID*<H$, fl9:J :G0T01318 



1319 '**** SUB; RUN OUT B* 

1328 IF B*=""THEN RETURN 

1330 C$=B$ : B$= " " : GOSUB2680 i N J=0 

1349 IF(NF=0) AND (L3+BKP) 

THEN GOSUB13S0 ELSE GOSUB1370 

1350 GOSLIB2630 : RETURN 

1360 '***** SUB: PRINT A LINE ***** 

1370 IF L3>P-BM THEN GH*=Bt : GK$=C* : Q0SUB1168 : B*=GH* : C*=GK* 

1380 GOSUB1100 

1330 GOSUB2140:IFLM=8 THEN L3=L3+L4 

2000 L4=0 : L3=L3+1 : I FL3=0THENLPR INT" " 

2010 IF B1=0 THEN GOTG2O60 

2028 FOR 62=1 TO Bl 

2030 GOSUB 2080 

2040 L3=L3+1 

2850 NEXT 

2860 C$="": RETURN 

2070 ■-***** SUB: OUTPUT BLANK LINE TO CORRECT DEVICE 

2080 ON OP GOSUB 2100,-2110; 2±2§" 

2030 GOTO2150 

2100 LPRINT" ": RETURN 

-2110 PRINT#2,PP1j "•••":PP1=PP1+10: RETURN 
2120- PRINT :RETURN, . 

2130 ■-**+* SUB: SEND OUTPUT TO CORRECT DEVICE 

2140 ON OP GOSUB 2170. 2S7-0t : 22S€T 

2150 IF LM 

THEN IF LS>:L8:j=0 AND RS(L8)=0 
THEN LM=0 
ELSE L2=LS(L8> : L1=RS<L8> : L3=L1-L2 : L8=L8+i 

2160 RETURN 

2170 LPRINTTAB(L2+L4+0V>.; : 
IF L4>0 
THEN L5=l 
ELSE L5=ABS<L4)+1 

2180 LPRINT LEFT*<C& L5).= 

2130 IF FL=0 THEN OH NJ GOTO 2200,2240,2210 !' > '' ; 

2200 LPRINTMID$<C$, L5+1) : RETURN 
--2210- -'DELETED 

2220 "'DELETED 

2230 "DELETED 

2240 IF KF=0 THEN KF=1 

2250 '"DELETED 

2260 DELETED 

2270 PRINT#2, PP1; " ' ".; STRING$<L2+L4+0V, " " >+Ct : PP1=PP1+1 : RETURN 
-2280 PR I NTT AB < L2-+L4+QV ) ■> C$: RETURN 

2230 '"***** FINAL OUTPUT ************* 

2300 ''*** CLOSE FILES 

2310 1P-JN- THEN- PRINTflrJ'END" f 
■--2S2S»»€L6SE#±""" ' 
-_-£330-— •*#* S0RT AND PRINT INDEX 

2340 IF IM=0 THEN GOTO2530 

2350 TH=IH-i 



_236@ D!MIN$aM) . CLOSE*! : OPEN" IM, " INDEX" 

" 'i: ro for i =o ro i m : l i he i nput#±, i n* < i > .- next 

2288 FGRH=IM--iTO0STEP-l : N=H : 
FOR K=6 TO H: 
IF IN$<KXIN*<N> 
THEN NEXT 
ELSE N=K: NEXT 
. .239.0. .£$*im<m ■■i.lM$<H)=im <N> : IN$<N>=S$: 

NEXT 
, 24O0.C*=STRING*<INT<(L2-5V2>, " ")+" INDEX" :GOSUB1370 

2428 J=i .,... 

2426 IF'j>If1 THEN 2480 
-2440' Ji=INSTR<IN*(J~l), CHR$<127)):J2=INSTR<IN$<J), CHR*(127>> 

S2450-JF ,LEFT*<IN*(J-1>, J1X>LEFT*<IN*<J), J2) 
THEN 2478 
ELSE IF IN*<J-1X>IN*<J> 

THEN I H$ < J-l ) = I U$ < J-l > +M I D* < I Nf < J ) , J2 ) 

2466 ~FORKi=JTOI M-l : 

IN*<Ki)=IN*(Kl+l>: 
NEXT:IN$af'1>="":IM=iri-l 

2478 J=J+i : GOTO2430 
_24S@~F9ftJ=@TG I M-l 

2430 .,,.i:.l=.IN*XJ> 

2580 GGSUBii08 : GGSUB1978 : C$= " " 

25±@ NEXT' 

.2528 ■•«***' PRINT TABLE OF CONTENTS 

2520 IFCOK1THENGOTO2608 

25^8 H*= ,, ".GOSUB1160:C*=" TABLE OF CONTENTS" :G0SUB1988 

2550 "FOR J =0TOCOl--i 

2568 'i ii fNSTR'CCO*<: J). CHRf (127) > 

2570 C$=LEFT$ ( CO* < J ) , I -1 > +STR I NG$ < L2-LEN ( CO$ ( J ') ') , 46 ) +M I D$ < CO* ( J ) , I +1 ) 

2580 G0SUB1988 

259©" NEXT 

2668 G0SUB1166 : RUN 

2610 •'***#* SUB: OPEN FILES 

2620 CLOSEttQ : N2$ < Q ) =N1$ 

2628 IF RIGHT$<N1*,1>=" "THENN1$=LEFT*(N1$, LEN<N1$)-1) :G0T02628 

2648 I F LEFT* < R I GHT* < Nl$, 2 ) , 1 ) = " . " THEN N1=VAL < R I GHT$ < Nl$, 1 ) ) ELSE Nl=8 

2658 OPEN " I " , Q, Nl* : L I NE I NPUT#Q, G$ 

2660 IFG*0"8 •'" THENPRINTNlfc M IS NOT AN ASCII FILE"; : FOR2=1TO1808 : NEXT : RUNELSE RETURN 
...2670 •"*** SUB: BEEP AN ERROR 
. 2680 Ul=Ul+i : N J ( Ul ) =N J : RETURN 
. ,2690 N J=N J < Ul > : U1=U1-1 : RETURN 



